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1.  Introduction 

The  graphics  capabilities  of  PC-BASIC  are 
not  sufficient  to  display  data  effectively.  Low- 
level  commands  in  BASIC  such  as  DRAW, 
CIRCLE,  and  LINE1  simply  cannot  be  readily 
used  to  plot  data.  Because  of  the  continual  in¬ 
crease  in  the  use  of  personal  computers  (PC's), 
and  the  need  for  readily  available  graphics  in 
data  processing,  a  sufficient  plotting  routine 
had  to  be  written. 

This  routine  results  from  years  of  experience 
with  the  handling  and  display  of  data  on  com¬ 
puters.  It  contains  the  options  and  versatility 
needed  for  most  software  plotting  applications. 

2.  Description 

2.1  General  Description 

This  BASIC  routine  graphs  an  array  /  wave¬ 
form  on  the  terminal  screen  in  an  autonv  .ically 
generated  and  scaled  graticule.  It  produces  lin¬ 
ear  plots  and  uses  engineering-unit  scaling,  i.e., 
scaling  to  powers  of  10  in  multiples  of  3.  It  uses 
enhanced  graphicsadapter  (EGA)  BASICscreen- 
9  or  -10  mode  graphics,  which  give  a  640  x  350 
pixel  resolution,  or  screen-2  or  -8  mode  graph¬ 
ics,  which  give  a  640  x  200  pixel  resolution. 

In  order  to  use  this  graphics  routine,  cer¬ 
tain  computer  requirements  must  be  filled.  One 
must  have  a  computer  which  is  IBM-PC  com¬ 
patible,  which  has  minimum  processor  require¬ 
ments,  such  as  that  of  an  IBM-XT,  and  which  has 
a  version  of  the  BASIC  operating  system.  For 
nominal  performance  it  is  recommended  that  it 
have  a  coprocessor.  In  addition,  the  computer 
must  have  a  graphics  monitor  and  a  graphics 
card  such  as  Hercules,  computer  graphics 
adapter  (CG A),  or  EGA,  to  name  a  few.  In  GW- 
PASIC,  the  CGA  will  only  support  screen-2 
mode  whereas  the  EGA  will  support  screen-8, 


Microsoft  GW-BASIC  Interpreter  for  the  MS-DOS 
Operating  System,  Version  3.2,  Microsoft  Corporation 
(1986). 


-9  and  -10  modes.  The  monochrome  graphics 
adapter  (MG A)  will  only  support  screen  10 
mode. 

2.2  Options 

Although  all  the  routine  needs  from  the 
user  is  an  array,  many  options  can  be  specified 
to  control  the  appearance  of  the  plotting.  These 
options,  listed  in  table  1,  can  be  specified  any¬ 
where  in  the  main  program.  The  "aspects"  of  the 
graph  which  can  be  controlled  are  listed  below. 

1.  Window — the  minimum  and  maximum 
values,  or  "span,"  of  the  graph;  includes  the 
horizontal  (x-axis)  and  vertical  (y-axis)  min- 
inum  and  maximum  values. 

2.  Viewport — the  portion  of  the  terminal 
screen  the  graph  will  be  displayed  in;  i.e.,  the 
size  and  location  of  the  graph  on  the  screen  are 
specified  in  terms  of  pixel  coordinates. 

3.  Tics — number  of  divisions  of  the  grati¬ 
cule;  specified  for  the  x-axis  and  the  y-axis;  the 
number  of  vertical  and  horizontal  tics  can  be 
specified. 

4.  Labels— the  numbers  printed  on  the 
screen  to  signify  the  value  of  the  plot  at  each  tic 
mark,  and  the  units  of  each  axis  which  are 
printed;  the  number  of  digits  the  labels  contain 
can  be  specified. 

5.  Colors — the  colors  of  each  of  the  follow¬ 
ing  can  be  specified: 

(a)  Graticule — the  grid  the  trace  is  dis¬ 
played  in. 

(b)  Trace — the  "curve"  drawn  on  the  grati¬ 
cule,  which  represents  the  actual  waveform. 

(c)  Labels — explained  above. 

An  additional  term  which  needs  defining 
is  pixel— the  smallest  unit  of  discernible  graph¬ 
ics  on  the  terminal  screen;  e.g.,  in  screen-9  mode, 
the  screen  consists  of  640  x  350  pixels. 

If  not  specified,  each  option  reverts  to  its 
default  value.  For  example,  if  the  window  is  not 
specified,  it  is  autogenerated  to  give  a  trace 
which  is  full  scale  in  the  graticule  and  labels 
which  are  "nice,  round"  numbers.  Not  specify¬ 
ing  the  number  of  tics  will  have  the  routine  auto¬ 
matically  compu^  the  correct  number  of  tics  to 


Table  1.  Options 


Plot 

aspect 

Range 

Variable 

name 

Descripton 

Window 

lO"12  to 
101S 

XWINDMIN 

XWINDMAX 

YWINDMIN 

YWINDMAX 

Minimum  value  the  x-axis  will  have; 
default  is  0 

Maximum  value  the  x-axis  will  have;  default  is 
largest  x-value  of  the  trace 

Minimum  value  the  y-axis  will  have 

Maximum  value  the  y-axis  will  have 

Viewpoint 

1  to  639 

XVIEWMIN 

XVIEWMAX 

Leftmost  horizontal  pixel  coordinate  the  graticule 
will  have 

Rightmost  horizontal  pixel  coordinate  the  graticule 
will  have 

1  to  349 

YVIEWMIN 

YVIEWMAX 

Vertical  pixel  coordinate  the  upper  side  of  the 
graticule  will  have 

Vertical  pixel  coordinate  the  lower  side  of  the 
graticule  will  have 

Tics 

0  to  20 

XTICS  Number  of  divisions  to  make  in  the  graticule's  x-axis 

YTICS  Number  of  divisions  to  make  in  the  graticule's  y-axis 

Labels 

1  to  8 

XDIGITS 

YDIGITS 

Number  of  digits  the  labels  of  the  x-axis  will  have 
Number  of  digits  the  labels  of  the  y-axis  will  have 

Colors 

0  to  15 

COLORGRA 

COLORLAB 

COLORTRA 

Color  of  the  graticule  'I 

Color  of  the  labels  v-1  is  black  or 

Color  of  the  trace  J  no-draw  on  each 

use,  based  upon  the  viewport  and  the  window 
specifications.  In  addition,  in  case  of  errors  or 
incorrectly  entered  values,  default  values  are 
assigned.  Also,  options  specified  as  noninteger 
are  rounded  to  the  nearest  integer  except  for  the 
window  parameters  and  sampling  interval. 

There  are  also  variables  that  are  associated 
with  the  waveform,  rather  than  with  the  plot¬ 
ting.  These  include  the  sampling  interval,  hori¬ 
zontal  units,  and  vertical  units.  They  do  not 
have  to  be  specified  and  are  listed  in  table  2. 

Sample  outputs  with  the  various  options 
set  are  given  in  appendix  A.  These  are  hard 
copies,  made  directly  from  the  terminal  screen 
in  screen-10  mode.  In  figures  A-l  to  A-10  the 
plots  display  the  same  waveform,  which  con¬ 


sists  of  a  512-element  array  with  a  sampling 
interval  of  9.7656  xlfr*.  In  figures  A-l  1  through 
A-13  the  plots  display  a  512-element  array  with 
a  sampling  interval  of  1.9531  x  1 0-8,  along  with 
the  aforementioned  waveform.  Figure  A-14  con¬ 
tains  a  plot  of  two  different  waveforms  on  the 
same  graticule.  Every  waveform  has  the  vari¬ 
ables  HORZUNTT$  AND  VERTUNITS  set  to 
"S"  and  "V,"  respectively. 

In  order  for  the  routine  to  function  prop¬ 
erly,  a  different  scheme  for  printing  numbers 
had  to  be  devised.  This  is  described  in  appendix 
B.  Also,  a  pseudocode  of  the  entire  graphing 
routine  is  given  in  appendix  C,  and  the  pro¬ 
gram  is  listed  in  appendix  D. 
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Table  2.  Waveform  Data 


Component 

Variable 

name 

Description 

Range 

Sampling  interval 

SA 

Default  is  1 

lO^tolO38 

Horizontal  units 

HORZUNITS 

Default  is  no  units  displayed 

10  characters 

Vertical  units 

VERTUNIT$ 

Default  is  no  units  displayed 

10  characters 

3.  Uses  and  Limitations 

As  stated  earlier,  in  order  to  work  the  rou¬ 
tine  needs  an  array  (in  the  proper  array  name, 
of  course).  The  routine  is  called  with  theGOSUB 
command  and  it  then  plots  the  waveform  on 
the  screen.  Although  the  routine  only  takes  one 
array  at  a  time,  it  can  be  used  to  plot  many 
waveforms  on  the  same  graticule.  This  is  easily 
done  by  first  specifying  the  window  and,  sec¬ 
ond,  by  graphing  each  waveform  separately, 
using  the  color  options  to  omit  redrawing  of 
graticule  and  label?.  An  example  of  two  wave¬ 
forms  displayed  on  the  same  graticule  is  shown 
in  figure  A-14  (app  A). 

In  order  to  conserve  memory  in  the  com¬ 
puter,  X-Y  pairs  are  not  used  and  only  one  array 
is  assigned  to  a  waveform.  The  method  of  X-Y 
pairs  uses  two  arrays  for  each  waveform.  The 
first  array  holds  the  horizontal,  or  X-axis,  value 
of  each  point  and  the  second  array  contains  the 
vertical,  or  Y-axis,  value  for  each  point.  The  two 
arrays  are  paired  up  to  create  X-Y  pairs  for  each 
point  of  the  waveform.  In  order  to  refrain  from 
using  X-Y  pairs,  one  would  use  only  the  Y- 
value  array  but  also  have  a  sampling  interval,  a 
number  which  is  the  horizontal  value  between 
each  point  of  the  waveform.  The  X-axis  value  of 


a  point  is  found  by  multiplying  the  sampling 
interval  times  the  array-element  number  of  the 
point  of  interest.  The  advantage  of  representing 
a  waveform  in  this  way  is  that  one  conserves 
memory  in  the  computer  (about  one  half  the 
memory  space  is  saved).  The  most  significant 
disadvantage  of  representing  a  waveform  in 
this  way  is,  obviously,  that  the  waveform  must 
have  a  uniform  sampling  interval,  and  thus, 
nonuniformly  sampled  waveforms  cannot  be 
displayed. 

However,  if  a  waveform  consists  of  several 
sections  with  different  sampling  intervals,  it 
can  be  displayed  with  the  routine.  The  proce¬ 
dure  used  is  the  same  as  that  when  plotting 
more  than  one  waveform,  except  that  each  dif¬ 
ferently  sampled  portion  is  used  in  place  of  a 
separate  waveform. 

In  general,  this  graphics  routine  has  two  ap¬ 
plications:  (1)  it  can  be  used  simply  to  plot  a 
waveform  which  is  in  a  computer  or  on  a  disk 
or  (2)  it  can  be  a  building  block  for  a  data 
processing/ acquisition  package.  It  has  enough 
modulicity  so  that  it  can  be  easily  placed  into  a 
software  package  that  is  being  written  in  BA¬ 
SIC.  In  fact  it  is  anticipated  that  the  routine  will 
be  used  for  this  purpose  in  the  near  future. 


Appendix  A.  Sample  Output 


1E-6S 


Figure  A-2.  YTJ.CS=10/  YWINDMIN=-.6,  YWINDMAX-.6. 
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1E-6S 

WNDMIN^O,  XWINDMAX=lE-05. 


- >MIN=4.829E-06,  XWINDMAX=1.725E-05. 
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APPENDIX  A 


V 


V 


Figure  A-ll .  XVIEWMIN=50,  X  VIEWMAX=300; 
First  Waveform:  YVIEWMIN=35,  YVIEW- 
MAX=140;SecondWaveform:YVIEWMIN=204/ 
YVIEWMAX=309. 


0.0  2.0  4.0  6.0  8.0  10.0 

1E-6S 


0.0  10.0  20.0  30.0  40.0  50.0 

1E-6S 


Figure  A-12.  YWINDMIN=-.543,  WWIND- 
MAX=.577,  XVIEWMIN=50,  XVIEWMAX=300; 
First  Waveform:  XVIEWMIN=35,  XVIEW- 
MAX=140;  Second  Waveform:  YVIEWMIN=204, 
YVIEWMAX=309. 
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4.0  6.0  8.0  10.0 

E-6S 


Figure  A-13.  YWINDMIN=-6,  YWINDMAX=.6, 
XVIEWMIN=50,  XVIEWMAX=300;  First  Wave¬ 
form:  XVIEWMIN=35,  XVIEWMAX=140;  Second 
Waveform:  YV1EWMIN=204,  YVIEWMAX=309. 


20.0  30.0  40.0  50.0 


Appendix  B. — The  Use  of  Graphically  Produced  Numbers 


APPENDIX  B 


In  GW-BASIC,  one  can  only  print  charac¬ 
ters  in  certain  discrete  places  on  the  screen, 
namely  in  an  80  x  25  grid.  This  is  a  major 
weakness  of  IBM-type  BASIC— characters 
cannot  be  printed  where  desired.  If  one  tries 
printing  numbers  to  line  up  with  graticule  tic 
marks,  their  positions  come  out  distorted.  See 
figure  B-l. 

A  remedy  to  this  is  to  draw  the  numbers  in¬ 
dividually.  To  do  this  the  numbers  must  first  be 
designed,  each  in  a  14  x  8  pixel  grid,  the  size  of 
the  regularly  printed  numbers.  For  ample  space 
between  the  numbers  when  they  are  printed 


consecutively,  the  numbers  mustbemadesmall 
enough  inside  the  14  x  8  grid.  Examples  of 
number  designs  are  shown  in  figure  B-2.  The 
numbers  used  here  are  9  pixels  high'  by  6  pixels 
wide. 

One  of  these  numbers  is  printed  when  we 
move  the  graphics  cursor  to  any  of  the  350-  x 
640-element  locations  at  which  to  begin  print¬ 
ing  the  number  and  use  the  DRAW  command 
to  highlight  the  appropriate  pixel  pattern  on 
the  screen.  With  the  appropriate  graphic  string 
for  each  digit,  an  entire  line  of  numbers  can  be 
printed. 


GHZ 

Figure  B-l.  "Distorted"  labels. 
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Appendix  C. — Pseudocode 


Round  option-variables  to  nearest  integer  except  sampling 
interval  and  window  parameters. 

See  ir  each  value  is  within  right  limits. 

Assign  default  values  to  the  appropriate  option  parameters. 

Auto-compute  window  and  number  of  tic  marks,  if  needed. 

Compute  default  number  of  digits  in  the  labels,  if  needed. 

Compute  labels. 

Draw  graph: 

Draw  graph  border 
Draw  tic  marks 

Print  labels  (use  graphically  produced  numbers  described  in  app  B) 

Plot  trace: 

For  I  =  1  to  WAVEFORMJSIZE 

Do  a  matrix  conversion  from  each  point's  amplitude  to  screen  coordinates 
Draw  a  line  to  connect  each  point  of  the  waveform 

Next  I 


End 


Appendix  D.  Program  Listing 


10  REM  *********  GRAPHME.BAS  ********* 

20  REN  4/89  N  TESNY 

30  REM  THIS  IS  THE  MAIN  PROGRAM  WHICH  CALLS  THE  GRAPHING  ROUTINE. 

40  WFSIZE*1000 

50  OPEN  "I", 1, "FILE. DAT" 

60  DIM  UAVEFORM(UFSIZE) 

70  SA*1E-09 
80  HORZUNIT$*"S" 

90  VERTUNIT$*"V" 

100  YM I N I MUM=1 E+20 : YMAX I MUM=- 1 E+20 
110  FOR  I*  1  TO  WFSIZE 
120  INPUT  #1,WAVEFORM(I) 

130  IF  WAVEFORM(D<YMINIMUM  THEN  YMINIHUH=WAVEFORM(I) 

140  IF  WAVEFORM(I)>YMAXIMUM  THEN  YMAXIMUM=WAVEFORM( I ) 

150  NEXT  I 
160  CLOSE  #1 
170  SCREEN  9 
180  KEY  OFF 
190  CLS 

200  GOSUB  5000 
210  END 

5000  REM  *********  GRAPHME1.BAS  ********* 

5010  REM  4/89  N  TESNY 
5020  REM  GRAPHICS  ROUTINE 

5030  REM  TAKE  CINT  OF  ALL  VARS,  FIND  DEFAULT  VALUES: . 

5040  XVIEWMIN*CINT<XVIEWMIN):XVIEWHAX=CINT<XVIEWMAX) 

5050  YVIEWMIN*CINT(YVIEWMIN):YVIEWMAX=CINT(YVIEWMAX) 

5060  XWINDMN=0:XWINDMX*0:YWINDMNS0:YWINDMX=0 

5070  IF  XUINDMAX>XU!NDMIN  THEN  XWINDMH-XWINDM1N:XWINDHX=0<WINDMAX 

5080  IF  YUI NDMAX>YWI NDM I N  THEN  YW I NDMN=YW I NDM I N : YWI NDMX=Y W I NDMAX 

5090  XNT I CS=C I  NT (XT I CS) : I F  XNT!CS>20  OR  XNT!CS<0  THEN  XNTICS=0 

5100  YNT I CS=CI NT < YT I CS > J I F  YNTICS>20  OR  YNTICS<0  THEN  YNTICS=0 

5110  XNDIGI TS— Cl NT (XDIGI TS> : I F  XNDIGITS<0  OR  XNDIGITS>8  THEN  XNDIGITS=0 

5120  YNDIGITS*CINT(YDIGITS):IF  YNDIGITS<0  OR  YNDIGITS>8  THEN  YNDlGITS*0 

5130  SAMPINTV=SA:IF  SAMPINTV=0  THEN  SAMP!NTV=1 

5140  COLOGRAT=CINT (COLORGRA) :  I F  COLOGRAT=0  OR  COLOGRAT>15  THEN  C0L0GRAT=7 
5150  COLOTRAC=C I NT < COLORTRA > : I F  COLOTRAC=0  OR  COLOTRAC>15  THEN  COLOTRAC=12 
5160  COLOLABE=C I NT ( COLORLAB ) : I F  COLOLABE=0  OR  COLOLABE>15  THEN  COLOLABE=15 
5170  IF  XVIEUMIN»XV1EUHAX  OR  XVIEUMIN<0  OR  XVIEWMAX>640  THEN  XVIEWMIN=80:XVIEWM 
AX-560 


5180  IF  YVIEWMIN>=YVIEWMAX  OR  YVIEWMIN<0  OR  YVIEWMAX>350  THEN  YVIEWKIN=36:YVIEWM 
AX«306 

5190  REM  COMPUTE  WINDOW  FOR  GRAPH 
5200  REM  X-AXIS: 

5210  XMAX I MUH=SAMP I NT V*WF SIZE 

5220  IF  XHTICS=0  THEN  XNTICSsCINTaXVIEWKAX-XVJEWHINJ/Co^o}) 

5230  IF  XWI NDMN>=XWI NDMX  THEN  XWINDMN=0:XWINDMX=XMAX1HUM 
5240  XSPAN=(XWINDMX-XWI NDMN )/XNT I CS 
5250  REM  COMPUTE  XNDIGITS: 

5260  IF  XNDIGITSoO  OR  XSPAN=0  THEN  5290 

5270  XNDIGITS=3:IF  XW1NDMN/XSPAN>100  AND  XWINDMX/XSPAN>100  THEN  XNDIGITS=4 


APPENDIX  D 


5280  REM  Y-AXIS: 

5290  NTICN0M=C1NT((YVIEWMAX-YVIEWHIN)/(2*14)> 

5300  HAX=YMAXIHUM:HJN=YMINIMUM 
5310  IF  MI  NoMAX  OR  YWINDHN<YWINDHX  THEN  5360 
5320  IF  YNTICSoO  THEN  NUCN0M*YNTICS 
5330  MIN=MIN*(1-NTICNOM/200) 

5340  MAX=MAX*(1+NT1CNOM/200) 

5350  IF  HIN«0  THEN  MIN«-.000001*INT<NTICNOM/2):MAX*-.000001MNT(-NTICNOM/2) 

5360  IF  YWINDMN>*YWIN0MX  AND  YNTICSoO  THEN  5430 

5370  IF  YWIN0MN<  YUINOMX  AND  YNTICS-  0  THEN  5550 

5380  IF  YUINDHN»YUINDHX  AND  YNTICS-  0  THEN  5640 

5390  REN  NOOULE  1:  REM  TICS  AND  WINDOW  DEFINED 

5400  YSPAN=(YWINDMX-YWINDMN)/YNT1CS 

5410  GOTO  5790 

5420  REN  NOOULE  2:  WINDOW  NOT  DEFINED,  #T!CS  SPECIFIED 
5430  Y*(MAX-NIN)/YNTICS 
5440  K=0 

5450  REN  ROUND  Y  UP  TO  NEAREST  INTEGER: 

5460  IF  Y»10  THEN  Y*Y/10:K=K+1:GCTO  5460 
5470  IF  Y<1  THEN  Y-Y*10:  K=K-1:GOTO  5470 
5480  Y-INT(-Y) 

5490  YSPAN*10AK  *  Y 

5500  YWINDMN-YSPAN*1NT(HIN/YSPAN) 

5510  YWINDMX-YWINDMN+YNTICS*YSPAN 
5520  IF  YWINDMX<MAX  THEN  Y*Y+1:COTO  5460 
5530  GOTO  5790 

5540  REM  NOOULE  3:  WINDOW  DEFINED,  TICS  NOT  SPECIFIED 

5550  IF  NTICNOH<»5  THEN  5600 

5560  FOR  YNTICS-NTICNOM  TO  (NTICNOH-2)  STEP  -1 

5570  YSPAN»<YWINDMX-YWINDMN)/YPTICS 

5580  IF  YSPAN-IHT(YSPAN)  THEN  5610 

5590  NEXT  YNTICS 

5600  YNTICS-NTICNOM 

5610  YSPAN=<YWINDMX-YWINDHN)/YNTICS 

5620  GOTO  5790 

5630  REN  NOOULE  4:  WINDOW  AND  #TICS  NOT  SPECIFIED 
5640  1  1HAX-MIN)/NY1CN0M 
5650  ^0 

5660  ..EM  ROUND  Y  UP  TO  NEAREST  1,2,  OR  5? 

5670  IF  Y>10  THEN  Y=Y/10:K=K+1:GOTO  5670 
5680  IF  Y<1  THEN  Y=Y*10:  K=K-1:GOTO  5680 
5690  Y--INT(-Y) 

5700  IF  Y*1  OR  Y-2  OR  Y-5  OR  Y-10  THEN  5730 
5710  Y-Y+1  :  GOTO  5690 
5720  REM  FIND  YNTICS,  YSPAN: 

5730  YSPANs10AX  *  Y 

5740  YWINDMN-YSPAN* I NT(MI N/YSPAN ) 

5750  YWI NDMX-YSPAN*- I NT ( -HAX/YSPAN) 

5760  YNT ICS«< YWI NDMX- YWI NDMN  5/YSPAN 

5770  IF  YNTICS  >  NTJCNOM  THEN  Y=Y+1:GOTO  5670 

5780  REM  COMPUTE  YNDIG1TS: 
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5790  IF  YNDIGITSoO  OR  YSPAN*0  THEN  5820 

5800  YNDIGITS*3:IF  YUINDHN/YSPAN>100  AND  YWINDMX/YSPANMOO  THEN  YND1GITS=4 
FJ10  YNTICS*CINT(YNTICS> 

5820  NEK  THE  ACTUAL  WAVEFORM  PLOTTING 
5830  IF  COLOGRAT<0  THEN  6070 
5840  REM  DRAW  GRAPH  BORDER: 

5850  DRAW  MC"+STR*(COLOGRAT) 

5860  yO=STRS(XVIEWMlN)+V'+STR$<YVlEWMAX) 

5870  DRAW  "BM  "+X$ 

5880  DRAW  "M  ♦"+STR$<XVIEWMAX-XVIEWMIN)+'',0'' 

5890  DRAW  "M  +0,"+STR$<YVIEWMIN-YVIEWMAX) 

5900  DRAW  "M  -"♦STRS<XVIEWMAX-XVIEWMIN)+''(0'1 
5910  DRAW  "M  ♦0,"+STR$<YVIEWMAX-YVlEWMtN) 

5920  REH  DRAW  X-UNIT  TIC  MARKS: 

5930  FOR  1*1  TO  XNTICS-1 

5940  X*XVIEWMIN+(XVIEWMAX-XVIEWMIN)*I/XNTICS 
5950  X*CINT(X) 

5960  DRAW  "BM  •'♦STR*(X)+'',"+STRS(YV!EWMIN> 

5970  DRAW  "NM  +0,"+STR$(YVIEWMAX-YVIEWMIN> 

5980  NEXT  I 

5990  REM  DRAW  Y-UNIT  TIC  MARKS: 

6000  FOR  1*1  TO  YNTICS-1 

6010  Y*YVIEWMIN+(YVIEWMAX-YVIEWM1N)*I/YNTICS 
6020  Y*CINT(Y) 

6030  DRAW  "BM  "+STRS(XVIEWMIN)+",»+STR$(Y) 

6040  DRAW  "NM  +''+STRS(XVIEWMAX-XVIEWMIN)+''(0» 

6050  NEXT  I 

6060  REM  COMPUTE  SCALING  FACTORS  FOK  ENGIN.  UNITS  FOR  GRAPH 
6070  X=XWINDMX 
6080  GOSUB  6760 

6090  XEXPON$xEXPONENT$  :  XFACTOR=10AX 
6100  X*YWINDMX 

6110  Y*ABS(YWINDMN):IF  Y>X  THEN  X=Y 
6120  GOSUB  6760 

6130  YEXPON$=EXPONENT$  :  YFACTOR=10*X 
6140  REM  PRINT  X-LABELS: 

6150  IF  COLOLA8E<0  THEN  .6540 
6160  DRAW  "C»+STRS(COLOLABE) 

6170  AXISTYPE*1 :NDIGITS*XNDIGITS 
6180  NDIGMAX*3 
6190  I=XWINDMX 

6200  IF  ABS(XWINDMN)>I  THEN  1=ABS(XWINDMN) 

6210  IF  !/XFACTOR<100  THEN  N0IGMAX=2 
6220  IF  !/XFACTOR<10  THEN  NDIGMAX=1 
6230  NUMBER*XWINDMN/XFACTOR 
6240  X*XVIEWMIN:Y*YVIEWMAX 
6250  GOSUB  6880: REM  PRINT  LABEL 
6260  FOR  T*1  TO  XNTICS 

6270  X*XVIEWMIN+(XVIEWMAX-XVIEWMIN)*T/XNTICS 
6280  X*CINT(X) 

6290  NUMBER*(XWI NDMN+XSPAN*T )/XFACTOR 
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6300  GOSUB  6880: REM  PRINT  LABEL 
6310  NEXT  T 

6320  Y=Y/14+2: I F  Y>25  THEN  Y=25 
6330  LOCATE  Y,(XVIEWMAX+XVIELMIN)/16 
6340  PRINT  XEXPONS;HORZUN ITS;: LOCATE  1,25 
6350  REM  PRINT  Y-LABELS: 

6360  AXISTYPE=2:NDIGITS*YND!GITS 
6370  NDIGMAX*3 
6380  l*YWINDMX 

6390  IF  ABS(YWINDMN)>I  THEN  <-ABS(YUINDMN) 

6400  IF  I/YFACTOR<100  THEN  NDICHAX=2 
6410  IF  I/YFACTOR<10  THEN  NDIGMAX=1 
6420  NUMBER-YUINDMN/YFACTOR 
6430  X=XVIEUMIN:Y*YVIEUMAX 
6440  GOSUB  6880: REM  PRINT  LABEL 
6450  FOR  T*1  TO  YNTICS 

6460  Y=YVIEUMAX-(YVIEUMAX-YVIEWMIN)*T/YNT!CS 
6470  Y=CINT<Y) 

6480  NUMBER=(YUINDMN+YSPAH*T)/YFACTOR 
6490  GOSUB  6880:REM  PRINT  LABEL 
6500  NEXT  T 

6510  X*XVIEWMIN/8-LEN(YEXP0NS+VERTUNITS):lF  THEN  X=1 
6520  Y»YVIEWMIN/14-1:1F  Y<1  THEN  Y=1 
6530  LOCATE  Y,X:PRINT  YEXPONS;VERTUNITS 
6540  REM  PLOT  TRACE: 

6550  IF  COLOTRAC<0  THEN  6730 
6560  DRAW  »C»+STRS(COLOTRAC) 

6570  ARRAYPT 1 *C1 NT (XUI NDHN/SAMP I  NT V) 

6580  ARRAYPT2«  INT(XWINDMX/SAMPINTV) 

6590  IF  ARRAYPTK1  THEN  ARRAYPT  1=1  :  STARTPOS=1 
6600  IF  ARRAYPT2>UFSIZE  THEN  ARRAYPT2=WFSIZE 
6610  J*XWI NDMX-XWI NDMN :K*XVI EUMAX-XVI EUMI N 
6620  M=YWI NDMX- YWINDMN :N=YVI EUHAX- YVI EWHI N 
6630  X=XVIEUHIN»(ARRAYPT1*SAHPINTV-XWIN0MN)/J*K 
6640  Y=YVI EUMAX- (WAVEFORML ARRAYPT 1 ) -YWINDMN )/K*N 
6650  X=CINT(X):Y=CINT(Y) 

6660  DRAW  "BM  »+STRS<X>+V'+STRS<Y) 

6670  FOR  I=ARRAYPT1+1  TO  ARRAYPT2 
6680  X=XVIEWMIN+(l*SAMPINTV-XWINDMN)/J*K 
6690  Y*YVIEWMAX-(UAVEFORM( I )-YWINOMN)/M*N 
6700  X=CINT(X):Y=C1NT(Y) 

6710  DRAW  "M  "+SYR$(X)+'',''+STRS(Y) 

6720  NEXT  I 
6730  RETURN 
6740  END 

6750  REM  SUBROUTINE  TO  COMPUTE  SCALING  FACTORS  FOR  ENGINEERING  UNITS 

6760  IF  X>*1E«-12  THEN  EXPONENTS=»1E+12  ":X=12:RETURN 

6770  IF  X>*lE+09  THEN  EXPONENTS=»lE+9  »:X*9  :  RETURN 

6780  IF  X>=10000001  THEN  EXP0NENTS=»1E+6  »:  X=6  :  RETURN 

6790  IF  X>«1000l  THEN  EXP0NENTS*"1E+3  »:  X=3:  RETURN 

6800  IF  X>«1l  THEN  EXPONENTS*"  ":  X*0:  RETURN 
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6810  IF  X<1£-09  THEN  EXPONENT*»''1E- 12  X=*12:  RETURN 

6820  IF  X<. 000001  THEN  EXP0NENTS="1£-9  ":X=-9:  RETURN 
6830  IF  X<.001  THEN  EXP0NENT$=»1E-6  »:  X=-6:  RETURN 
6840  IF  X<1  THEN  EXPONENTS=»1£-3  ":  X=-3  s  RETURN 
6850  RETURN 

6860  REM  LABEL  ROUTINE:******************************************************* 
6870  REM  ROUNDING  ROUTINE 

6880  IF  NDIG1TS<=4  THEN  NUMBER=C1NT<NUMBER*10A<NDIG!TS-NDIGMAX))/10A(ND1G1TS-NDI 
GMAX) 

6890  REM  PAOOING  ROUTINE: 

6900  NUMBERS*STRS<NUMBER) 

6910  IF  INSTR(NUMBER$,"  »)=1  TEEN  NUMBERS=R I GHTS( NUM8ER* , LEM ( NUMBERS )- 1 ) 

6920  IF  NOIGMAX»NDIGITS  THEN  7020 
6930  L*LEN(NUMBERS> 

6940  J*INSTR<NUMBERS,".") 

6950  IF  J*1  THEN  NUHBERS*"0"+NUMBERS 
6960  I*  J»0  THEN  NUMBERS=NUMBERS+".»:  J=L 
6970  FOR  1*1  TO  (NDIGITS-NDIGMAX)-(L-J) 

6980  NUMBERS*NUMBERS+"0" 

6990  NEXT  I 

7000  IF  L-J*NDIGITS-NDIGMAX  THEN  NUMBERS=LEFTS<NUMBERS,L-(L- !)+<NDIG!TS-ND!GMAX) 
) 

7010  REM  PRINTING  ROUTINE: 

7020  LENPIXS*8*LEN(NUMBER$) 

7030  IF  INSTR(NUMBERS,".")>0  THEN  LENPIXS=LENP!XS-3:  REM  A  ".»  ONLY  5  PIXELS  LON 
G 

7040  REM  FIND  STARTING  POINT: 

7050  IF  AXISTYPE*1  THEN  XSTART=X-INT<<LENPIXS-1)/2):  YSTART=Y+12 
7060  IF  AXISTYPE*2  THEN  XSTART*X-LENPIXS-3:  YSTART*Y+4 
7070  REM  IF  LABEL  IS  OFFSCREEN  THEN  SLIOE  IT  ONSCREEN: 

7080  IF  XSTART<0  THEN  XSTART=0 
7090  IF  YSTART>350  THEN  YSTART=350 
7100  REM  PRINT  NUMBERS: 

7110  DRAW  "BM"+STR$(XSTART )♦" , "+STRS(YSTART) 

7120  FOR  1*1  TO  LEN(NUMBERS) 

7130  DIGITS*MID$(NUMBERS, 1,1) 

7140  IF  DIGITS*"0"  THEN  DRAW  "BR5  L3  H  U6  E  R3  F  06  BF  BR»:GOTO  7260 
7150  IF  DIGITS*". «  THEN  DRAW  "BR  U  R  D  BR2"  :GOTO  7260 

7160  IF  DIGITS* .  THEN  DRAW  "BU4  BR  R5  B04  BR2»:GOTO  7260 

7170  IF  DIGITS=»1»  THEN  DRAW  "8U6  BR3  E  U  D8  L2  R4  BR2"  :GOTO  7260 

7180  IF  DIGITS="2"  THEN  DRAW'  "BU7  BR  E  R3  F  0  G5  D  R5  BR2" 

7190  IF  DIG1T$="3"  THEN  DRAW  "BE  F  R3  E  U2  H  L3  R3  E  U2  H  L3  G  BR7  BD7" 

7200  IF  DIGITS*»4"  THEN  DRAW  "BR5  U8  G4  D1  R5  BD3  BR2" 

7210  IF  DIGIT$="5"  THEN  DRAW  "BE  F  R3  E  U2  H  L4  U4  R5  BR2  BD8" 

7220  IF  D!GITS*"6"  THEN  DRAW  "BU4  BR  R4  F  D2  G  L3  H  U6  E  R3  F  BR2  BD7" 

7230  IF  D!GITS="7"  THEN  DRAW  "8R  BU8  R5  D2  G3  03  BR5" 

7240  IF  0!G!TS="8»  THEN  DRAW  "BU3  BR  D2  F  R3  E  U2  H  L3  H  U2  E  R3  F  D2  BR2  BD5" 

7250  IF  DIGITS*"9"  THEN  DRAW  "BE  F  R3  E  U2  H  L3  H  U2  E  R3  F  D3  BR2  BD4" 

7260  NEXT  I 
7270  RETURN 
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